#! /usr/bin/Perl
    $RarPath="D:\\Program Files\\WinRAR\\";
    @command=("c:\\Rar", "a", "c:\\temp\\go.rar", "c:\\sc\\backup\\*.*");
#    @command=("Date");
    system(@command);